/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / M / MacWT 0.04.sit / Mac WT source / mac_wt.h

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 6d 61 63 5f 77 74 | 2e 68 00 00 00 00 00 00 |..mac_wt|.h......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 00 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 0e bf 00 | 00 01 ac a9 f6 2c 2e a9 |........|.....,..|
|00000060| f6 2c 2e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.,......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4a e4 00 00 |........|....J...|
|00000080| 2f 2f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |//======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 0d 2f 2f 20 | 6d 61 63 5f 77 74 2e 68 |====.// |mac_wt.h|
|000000d0| 09 09 09 09 09 09 09 09 | 09 09 09 3c 74 75 72 20 |........|...<tur |
|000000e0| 30 31 2d 4d 61 79 2d 39 | 34 3e 0d 2f 2f 0d 2f 2f |01-May-9|4>.//.//|
|000000f0| 09 4d 61 63 69 6e 74 6f | 73 68 20 69 6e 74 65 72 |.Macinto|sh inter|
|00000100| 66 61 63 65 20 66 6f 72 | 20 43 68 72 69 73 20 4c |face for| Chris L|
|00000110| 61 75 72 65 6c 27 73 20 | 22 77 74 22 20 64 65 6d |aurel's |"wt" dem|
|00000120| 6f 2e 0d 2f 2f 0d 2f 2f | 09 43 6f 6d 6d 65 6e 74 |o..//.//|.Comment|
|00000130| 73 2c 20 42 75 67 20 52 | 65 70 6f 72 74 73 2f 46 |s, Bug R|eports/F|
|00000140| 69 78 65 73 2c 20 65 74 | 63 2c 20 74 6f 20 74 75 |ixes, et|c, to tu|
|00000150| 72 6c 79 40 69 73 6c 74 | 64 2e 69 6e 73 69 67 6e |rly@islt|d.insign|
|00000160| 69 61 2e 63 6f 6d 0d 2f | 2f 0d 2f 2f 3d 3d 3d 3d |ia.com./|/.//====|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0d |========|======..|
|000001b0| 23 70 72 61 67 6d 61 20 | 6f 6e 63 65 0d 0d 23 69 |#pragma |once..#i|
|000001c0| 66 6e 64 65 66 09 6d 61 | 63 69 6e 74 6f 73 68 0d |fndef.ma|cintosh.|
|000001d0| 23 64 65 66 69 6e 65 09 | 6d 61 63 69 6e 74 6f 73 |#define.|macintos|
|000001e0| 68 0d 23 65 6e 64 69 66 | 0d 0d 23 69 66 6e 64 65 |h.#endif|..#ifnde|
|000001f0| 66 09 42 49 47 45 4e 44 | 0d 23 64 65 66 69 6e 65 |f.BIGEND|.#define|
|00000200| 09 42 49 47 45 4e 44 0d | 23 65 6e 64 69 66 0d 0d |.BIGEND.|#endif..|
|00000210| 23 69 66 6e 64 65 66 20 | 5f 5f 54 59 50 45 53 5f |#ifndef |__TYPES_|
|00000220| 5f 0d 23 69 6e 63 6c 75 | 64 65 20 22 54 79 70 65 |_.#inclu|de "Type|
|00000230| 73 2e 68 22 0d 23 65 6e | 64 69 66 0d 23 64 65 66 |s.h".#en|dif.#def|
|00000240| 69 6e 65 09 47 6f 74 46 | 61 6c 73 65 54 72 75 65 |ine.GotF|alseTrue|
|00000250| 42 6f 6f 6c 65 61 6e 0d | 65 6e 75 6d 20 7b 46 61 |Boolean.|enum {Fa|
|00000260| 6c 73 65 2c 20 54 72 75 | 65 7d 3b 09 09 2f 2f 20 |lse, Tru|e};..// |
|00000270| 42 6f 6f 6c 65 61 6e 20 | 69 73 20 61 6c 72 65 61 |Boolean |is alrea|
|00000280| 64 79 20 64 65 66 69 6e | 65 64 20 69 6e 20 4d 61 |dy defin|ed in Ma|
|00000290| 63 27 73 20 22 54 79 70 | 65 73 2e 68 22 0d 0d 0d |c's "Typ|es.h"...|
|000002a0| 2f 2a 2a 2f 0d 0d 23 64 | 65 66 69 6e 65 09 50 41 |/**/..#d|efine.PA|
|000002b0| 54 48 5f 4d 41 58 09 09 | 38 30 0d 0d 23 64 65 66 |TH_MAX..|80..#def|
|000002c0| 69 6e 65 09 6d 61 69 6e | 09 09 09 57 54 4d 61 69 |ine.main|...WTMai|
|000002d0| 6e 0d 65 78 74 65 72 6e | 20 69 6e 74 20 57 54 4d |n.extern| int WTM|
|000002e0| 61 69 6e 28 69 6e 74 20 | 61 72 67 63 2c 20 63 68 |ain(int |argc, ch|
|000002f0| 61 72 20 2a 2a 61 72 67 | 76 29 3b 09 09 2f 2a 20 |ar **arg|v);../* |
|00000300| 54 68 65 20 22 77 74 22 | 20 6d 61 69 6e 20 70 72 |The "wt"| main pr|
|00000310| 6f 63 65 64 75 72 65 20 | 2a 2f 0d 0d 2f 2a 2a 2f |ocedure |*/../**/|
|00000320| 0d 0d 23 64 65 66 69 6e | 65 09 5f 65 78 69 74 28 |..#defin|e._exit(|
|00000330| 78 29 09 66 61 74 61 6c | 5f 65 72 72 6f 72 28 22 |x).fatal|_error("|
|00000340| 5f 65 78 69 74 28 25 64 | 29 20 63 61 6c 6c 65 64 |_exit(%d|) called|
|00000350| 22 2c 20 78 29 0d 0d 2f | 2a 2a 2f 0d 0d 23 69 66 |", x)../|**/..#if|
|00000360| 09 5f 5f 4d 57 45 52 4b | 53 5f 5f 0d 23 64 65 66 |.__MWERK|S__.#def|
|00000370| 69 6e 65 09 47 4f 54 5f | 49 4e 4c 49 4e 45 09 31 |ine.GOT_|INLINE.1|
|00000380| 09 2f 2a 20 4d 57 45 52 | 4b 53 20 63 61 6e 20 75 |./* MWER|KS can u|
|00000390| 73 65 20 22 69 6e 6c 69 | 6e 65 22 20 2a 2f 0d 23 |se "inli|ne" */.#|
|000003a0| 65 6e 64 69 66 0d 0d 0d | 23 64 65 66 69 6e 65 09 |endif...|#define.|
|000003b0| 48 6f 73 74 49 6e 64 65 | 78 46 72 6f 6d 50 43 49 |HostInde|xFromPCI|
|000003c0| 6e 64 65 78 28 70 63 49 | 6e 64 78 29 09 28 70 78 |ndex(pcI|ndx).(px|
|000003d0| 49 6e 64 78 2b 31 29 0d | 23 64 65 66 69 6e 65 09 |Indx+1).|#define.|
|000003e0| 48 6f 73 74 44 69 72 46 | 69 6c 65 53 74 72 09 09 |HostDirF|ileStr..|
|000003f0| 09 09 09 22 3a 77 74 3a | 25 73 3a 25 73 22 0d 23 |...":wt:|%s:%s".#|
|00000400| 64 65 66 69 6e 65 09 48 | 6f 73 74 46 69 78 75 70 |define.H|ostFixup|
|00000410| 50 69 78 65 6c 44 61 74 | 61 28 61 2c 20 62 29 09 |PixelDat|a(a, b).|
|00000420| 09 4d 61 63 46 69 78 75 | 70 50 69 78 65 6c 44 61 |.MacFixu|pPixelDa|
|00000430| 74 61 28 61 2c 20 62 29 | 0d 0d 65 78 74 65 72 6e |ta(a, b)|..extern|
|00000440| 20 76 6f 69 64 20 4d 61 | 63 46 69 78 75 70 50 69 | void Ma|cFixupPi|
|00000450| 78 65 6c 44 61 74 61 28 | 75 6e 73 69 67 6e 65 64 |xelData(|unsigned|
|00000460| 20 63 68 61 72 20 2a 62 | 75 66 2c 20 69 6e 74 20 | char *b|uf, int |
|00000470| 6e 42 79 74 65 73 29 3b | 0d 0d 0d 2f 2a 20 55 73 |nBytes);|.../* Us|
|00000480| 65 20 69 6e 6c 69 6e 65 | 20 36 38 4b 20 61 73 73 |e inline| 68K ass|
|00000490| 65 6d 62 6c 79 20 66 6f | 72 20 46 69 78 65 64 20 |embly fo|r Fixed |
|000004a0| 61 6e 64 20 46 72 61 63 | 74 20 6d 75 6c 73 2f 64 |and Frac|t muls/d|
|000004b0| 69 76 73 20 2a 2f 0d 0d | 23 69 66 20 21 64 65 66 |ivs */..|#if !def|
|000004c0| 69 6e 65 64 28 55 53 45 | 53 36 38 4b 49 4e 4c 49 |ined(USE|S68KINLI|
|000004d0| 4e 45 53 29 20 26 26 20 | 28 64 65 66 69 6e 65 64 |NES) && |(defined|
|000004e0| 28 54 48 49 4e 4b 5f 43 | 29 20 7c 7c 20 64 65 66 |(THINK_C|) || def|
|000004f0| 69 6e 65 64 28 61 70 70 | 6c 65 63 29 29 0d 0d 2f |ined(app|lec))../|
|00000500| 2f 20 4d 50 57 20 43 20 | 75 6e 66 6f 72 74 75 6e |/ MPW C |unfortun|
|00000510| 61 74 65 6c 79 20 67 69 | 76 65 73 20 63 6f 64 65 |ately gi|ves code|
|00000520| 20 67 65 6e 65 72 61 74 | 69 6f 6e 20 65 72 72 6f | generat|ion erro|
|00000530| 72 73 20 69 66 20 77 65 | 20 68 61 76 65 20 61 6e |rs if we| have an|
|00000540| 79 0d 2f 2f 20 6f 66 20 | 74 68 65 73 65 20 6c 6f |y.// of |these lo|
|00000550| 6e 67 20 69 6e 6c 69 6e | 65 20 61 73 73 65 6d 62 |ng inlin|e assemb|
|00000560| 6c 79 20 72 6f 75 74 69 | 6e 65 73 2e 20 42 69 74 |ly routi|nes. Bit|
|00000570| 20 73 61 64 2c 20 72 65 | 61 6c 6c 79 2e 0d 0d 23 | sad, re|ally...#|
|00000580| 69 66 20 21 64 65 66 69 | 6e 65 64 28 61 70 70 6c |if !defi|ned(appl|
|00000590| 65 63 29 0d 23 64 65 66 | 69 6e 65 09 55 53 45 53 |ec).#def|ine.USES|
|000005a0| 36 38 4b 49 4e 4c 49 4e | 45 53 09 31 0d 23 65 6e |68KINLIN|ES.1.#en|
|000005b0| 64 69 66 0d 23 64 65 66 | 69 6e 65 20 4f 4e 45 57 |dif.#def|ine ONEW|
|000005c0| 4f 52 44 49 4e 4c 49 4e | 45 28 61 29 09 09 3d 20 |ORDINLIN|E(a)..= |
|000005d0| 61 0d 23 65 6e 64 69 66 | 0d 0d 0d 23 69 66 20 55 |a.#endif|...#if U|
|000005e0| 53 45 53 36 38 4b 49 4e | 4c 49 4e 45 53 0d 0d 23 |SES68KIN|LINES..#|
|000005f0| 70 72 61 67 6d 61 20 70 | 61 72 61 6d 65 74 65 72 |pragma p|arameter|
|00000600| 20 5f 5f 44 30 20 6d 63 | 36 38 6b 5f 66 69 78 6d | __D0 mc|68k_fixm|
|00000610| 75 6c 28 5f 5f 44 30 2c | 20 5f 5f 44 31 29 0d 65 |ul(__D0,| __D1).e|
|00000620| 78 74 65 72 6e 20 6c 6f | 6e 67 20 6d 63 36 38 6b |xtern lo|ng mc68k|
|00000630| 5f 66 69 78 6d 75 6c 28 | 6c 6f 6e 67 20 61 2c 20 |_fixmul(|long a, |
|00000640| 6c 6f 6e 67 20 62 29 20 | 3d 20 7b 30 78 34 43 30 |long b) |= {0x4C0|
|00000650| 31 2c 20 30 78 30 43 30 | 31 2c 20 30 78 33 30 30 |1, 0x0C0|1, 0x300|
|00000660| 31 2c 20 30 78 34 38 34 | 30 7d 3b 0d 2f 2a 20 6d |1, 0x484|0};./* m|
|00000670| 63 36 38 6b 5f 66 69 78 | 6d 75 6c 3a 20 20 22 6d |c68k_fix|mul:  "m|
|00000680| 75 6c 73 2e 6c 20 64 30 | 2c 20 64 31 3a 64 30 22 |uls.l d0|, d1:d0"|
|00000690| 2c 20 22 6d 6f 76 65 2e | 77 20 64 31 2c 20 64 30 |, "move.|w d1, d0|
|000006a0| 22 2c 20 22 73 77 61 70 | 20 64 30 22 20 2a 2f 0d |", "swap| d0" */.|
|000006b0| 0d 23 70 72 61 67 6d 61 | 20 70 61 72 61 6d 65 74 |.#pragma| paramet|
|000006c0| 65 72 20 5f 5f 44 30 20 | 6d 63 36 38 6b 5f 66 69 |er __D0 |mc68k_fi|
|000006d0| 78 64 69 76 28 5f 5f 44 | 32 2c 20 5f 5f 44 31 29 |xdiv(__D|2, __D1)|
|000006e0| 0d 65 78 74 65 72 6e 20 | 6c 6f 6e 67 20 6d 63 36 |.extern |long mc6|
|000006f0| 38 6b 5f 66 69 78 64 69 | 76 28 6c 6f 6e 67 20 6e |8k_fixdi|v(long n|
|00000700| 75 6d 2c 20 6c 6f 6e 67 | 20 64 65 6e 6f 6d 29 0d |um, long| denom).|
|00000710| 09 3d 20 7b 30 78 33 30 | 30 32 2c 20 30 78 34 38 |.= {0x30|02, 0x48|
|00000720| 34 30 2c 20 30 78 34 32 | 34 30 2c 20 30 78 34 38 |40, 0x42|40, 0x48|
|00000730| 34 32 2c 20 30 78 34 38 | 43 32 2c 20 30 78 34 43 |42, 0x48|C2, 0x4C|
|00000740| 34 31 2c 20 30 78 30 43 | 30 32 7d 3b 0d 2f 2a 20 |41, 0x0C|02};./* |
|00000750| 22 6d 6f 76 65 2e 77 20 | 64 32 2c 64 30 22 2c 20 |"move.w |d2,d0", |
|00000760| 22 73 77 61 70 20 64 30 | 22 2c 20 22 63 6c 72 2e |"swap d0|", "clr.|
|00000770| 77 20 64 30 22 2c 20 22 | 73 77 61 70 20 64 32 22 |w d0", "|swap d2"|
|00000780| 2c 20 22 65 78 74 2e 6c | 20 64 32 22 2c 20 22 64 |, "ext.l| d2", "d|
|00000790| 69 76 73 2e 6c 20 64 31 | 2c 20 64 32 3a 64 30 22 |ivs.l d1|, d2:d0"|
|000007a0| 20 2a 2f 0d 0d 23 70 72 | 61 67 6d 61 20 70 61 72 | */..#pr|agma par|
|000007b0| 61 6d 65 74 65 72 20 5f | 5f 44 30 20 6d 63 36 38 |ameter _|_D0 mc68|
|000007c0| 6b 5f 66 69 78 6d 75 6c | 32 5f 33 30 28 5f 5f 44 |k_fixmul|2_30(__D|
|000007d0| 30 2c 20 5f 5f 44 31 29 | 0d 65 78 74 65 72 6e 20 |0, __D1)|.extern |
|000007e0| 6c 6f 6e 67 20 6d 63 36 | 38 6b 5f 66 69 78 6d 75 |long mc6|8k_fixmu|
|000007f0| 6c 32 5f 33 30 28 6c 6f | 6e 67 20 61 2c 20 6c 6f |l2_30(lo|ng a, lo|
|00000800| 6e 67 20 62 29 20 0d 09 | 3d 20 7b 30 78 34 43 30 |ng b) ..|= {0x4C0|
|00000810| 31 2c 20 30 78 30 43 30 | 31 2c 20 30 78 45 35 38 |1, 0x0C0|1, 0xE58|
|00000820| 39 2c 20 30 78 45 35 39 | 38 2c 20 30 78 30 32 38 |9, 0xE59|8, 0x028|
|00000830| 30 2c 20 30 78 30 30 30 | 30 2c 20 30 78 30 30 30 |0, 0x000|0, 0x000|
|00000840| 33 2c 20 30 78 38 30 38 | 31 7d 3b 0d 2f 2a 20 22 |3, 0x808|1};./* "|
|00000850| 6d 75 6c 73 2e 6c 20 64 | 31 2c 20 64 31 3a 64 30 |muls.l d|1, d1:d0|
|00000860| 22 2c 20 22 6c 73 6c 2e | 6c 20 23 32 2c 20 64 31 |", "lsl.|l #2, d1|
|00000870| 22 2c 20 22 72 6f 6c 2e | 6c 20 23 32 2c 20 64 30 |", "rol.|l #2, d0|
|00000880| 22 2c 20 22 61 6e 64 2e | 6c 20 23 33 2c 20 64 30 |", "and.|l #3, d0|
|00000890| 22 2c 20 22 6f 72 2e 6c | 20 64 31 2c 20 64 30 22 |", "or.l| d1, d0"|
|000008a0| 20 2a 2f 0d 2f 2a 20 57 | 65 20 63 6f 75 6c 64 20 | */./* W|e could |
|000008b0| 70 72 6f 62 61 62 6c 79 | 20 6c 6f 73 65 20 74 68 |probably| lose th|
|000008c0| 65 20 74 6f 70 20 74 77 | 6f 20 62 69 74 73 20 6f |e top tw|o bits o|
|000008d0| 66 20 44 30 20 61 66 74 | 65 72 20 74 68 65 20 4d |f D0 aft|er the M|
|000008e0| 55 4c 53 2e 4c 20 77 69 | 74 68 6f 75 74 20 6d 75 |ULS.L wi|thout mu|
|000008f0| 63 68 20 65 66 66 65 63 | 74 2c 0d 2a 2a 20 62 75 |ch effec|t,.** bu|
|00000900| 74 20 49 27 6c 6c 20 6c | 65 61 76 65 20 74 68 65 |t I'll l|eave the|
|00000910| 6d 20 69 6e 20 66 6f 72 | 20 74 68 65 20 74 69 6d |m in for| the tim|
|00000920| 65 20 62 65 69 6e 67 2e | 2e 2e 0d 2a 2f 0d 0d 23 |e being.|...*/..#|
|00000930| 65 6c 73 65 09 2f 2a 20 | 55 53 45 53 36 38 4b 49 |else./* |USES68KI|
|00000940| 4e 4c 49 4e 45 53 20 2a | 2f 0d 0d 65 78 74 65 72 |NLINES *|/..exter|
|00000950| 6e 20 6c 6f 6e 67 20 6d | 63 36 38 6b 5f 66 69 78 |n long m|c68k_fix|
|00000960| 6d 75 6c 28 6c 6f 6e 67 | 20 61 2c 20 6c 6f 6e 67 |mul(long| a, long|
|00000970| 20 62 29 3b 0d 65 78 74 | 65 72 6e 20 6c 6f 6e 67 | b);.ext|ern long|
|00000980| 20 6d 63 36 38 6b 5f 66 | 69 78 64 69 76 28 6c 6f | mc68k_f|ixdiv(lo|
|00000990| 6e 67 20 6e 75 6d 2c 20 | 6c 6f 6e 67 20 64 65 6e |ng num, |long den|
|000009a0| 6f 6d 29 3b 0d 65 78 74 | 65 72 6e 20 6c 6f 6e 67 |om);.ext|ern long|
|000009b0| 20 6d 63 36 38 6b 5f 66 | 69 78 6d 75 6c 32 5f 33 | mc68k_f|ixmul2_3|
|000009c0| 30 28 6c 6f 6e 67 20 61 | 2c 20 6c 6f 6e 67 20 62 |0(long a|, long b|
|000009d0| 29 3b 0d 0d 23 65 6e 64 | 69 66 09 2f 2a 20 55 53 |);..#end|if./* US|
|000009e0| 45 53 36 38 4b 49 4e 4c | 49 4e 45 53 20 2a 2f 0d |ES68KINL|INES */.|
|000009f0| 0d 0d 23 64 65 66 69 6e | 65 09 50 41 52 41 4e 4f |..#defin|e.PARANO|
|00000a00| 49 44 0d 0d 0d 2f 2a 20 | 57 65 20 63 61 6e 20 65 |ID.../* |We can e|
|00000a10| 69 74 68 65 72 20 75 73 | 65 20 6f 75 72 20 6f 77 |ither us|e our ow|
|00000a20| 6e 20 68 61 6e 64 63 72 | 61 66 74 65 64 20 66 69 |n handcr|afted fi|
|00000a30| 78 65 64 70 6f 69 6e 74 | 20 72 6f 75 74 69 6e 65 |xedpoint| routine|
|00000a40| 73 20 28 65 2e 67 2e 2c | 20 61 62 6f 76 65 29 0d |s (e.g.,| above).|
|00000a50| 2a 2a 20 6f 72 20 77 65 | 20 63 61 6e 20 75 73 65 |** or we| can use|
|00000a60| 20 74 68 6f 73 65 20 70 | 72 6f 76 69 64 65 64 20 | those p|rovided |
|00000a70| 69 6e 20 74 68 65 20 62 | 61 73 65 20 28 77 68 69 |in the b|ase (whi|
|00000a80| 63 68 20 62 61 73 69 63 | 61 6c 6c 79 20 63 6f 72 |ch basic|ally cor|
|00000a90| 72 65 73 70 6f 6e 64 20 | 74 6f 0d 2a 2a 20 6c 6f |respond |to.** lo|
|00000aa0| 74 73 20 6f 66 20 66 6c | 6f 61 74 69 6e 67 20 70 |ts of fl|oating p|
|00000ab0| 6f 69 6e 74 20 65 78 70 | 72 65 73 73 69 6f 6e 73 |oint exp|ressions|
|00000ac0| 2e 29 0d 2a 2a 0d 2a 2a | 20 57 69 74 68 20 4d 65 |.).**.**| With Me|
|00000ad0| 74 72 6f 77 65 72 6b 73 | 2c 20 74 68 65 20 66 6c |trowerks|, the fl|
|00000ae0| 6f 61 74 69 6e 67 20 70 | 6f 69 6e 74 20 73 74 75 |oating p|oint stu|
|00000af0| 66 66 20 69 73 20 66 61 | 73 74 65 72 20 74 68 61 |ff is fa|ster tha|
|00000b00| 6e 20 63 61 6c 6c 69 6e | 67 20 74 68 65 0d 2a 2a |n callin|g the.**|
|00000b10| 20 4d 61 63 20 54 6f 6f | 6c 62 6f 78 20 5f 46 69 | Mac Too|lbox _Fi|
|00000b20| 78 4d 75 6c 2c 20 5f 46 | 69 78 44 69 76 2c 20 65 |xMul, _F|ixDiv, e|
|00000b30| 74 63 20 28 21 29 20 54 | 68 69 73 20 63 6f 75 6c |tc (!) T|his coul|
|00000b40| 64 20 62 65 20 62 65 63 | 61 75 73 65 20 74 68 65 |d be bec|ause the|
|00000b50| 73 65 20 63 61 6c 6c 73 | 0d 2a 2a 20 61 72 65 20 |se calls|.** are |
|00000b60| 65 6d 75 6c 61 74 65 64 | 20 6f 72 20 28 6d 6f 72 |emulated| or (mor|
|00000b70| 65 20 6c 69 6b 65 6c 79 | 29 20 74 68 65 20 36 30 |e likely|) the 60|
|00000b80| 31 20 6c 69 6b 65 73 20 | 66 6c 6f 61 74 69 6e 67 |1 likes |floating|
|00000b90| 20 70 6f 69 6e 74 20 6f | 70 73 20 6d 6f 72 65 20 | point o|ps more |
|00000ba0| 74 68 61 6e 0d 2a 2a 20 | 73 75 62 72 6f 75 74 69 |than.** |subrouti|
|00000bb0| 6e 65 20 63 61 6c 6c 2f | 72 65 74 75 72 6e 73 21 |ne call/|returns!|
|00000bc0| 20 4d 75 73 74 20 6c 6f | 6f 6b 20 69 6e 74 6f 20 | Must lo|ok into |
|00000bd0| 74 68 69 73 20 73 6f 6d | 65 74 69 6d 65 2e 0d 2a |this som|etime..*|
|00000be0| 2a 0d 2a 2a 20 46 6f 72 | 20 74 68 69 73 20 72 65 |*.** For| this re|
|00000bf0| 61 73 6f 6e 2c 20 49 27 | 76 65 20 6d 61 64 65 20 |ason, I'|ve made |
|00000c00| 74 68 65 20 75 73 65 20 | 6f 66 20 74 68 65 20 4d |the use |of the M|
|00000c10| 61 63 27 73 20 27 68 61 | 6e 64 63 72 61 66 74 65 |ac's 'ha|ndcrafte|
|00000c20| 64 27 20 72 6f 75 74 69 | 6e 65 73 20 28 6f 75 72 |d' routi|nes (our|
|00000c30| 0d 2a 2a 20 6f 77 6e 20 | 6f 72 20 5f 46 69 78 4d |.** own |or _FixM|
|00000c40| 75 6c 20 69 6e 20 74 68 | 65 20 52 4f 4d 29 20 64 |ul in th|e ROM) d|
|00000c50| 65 70 65 6e 64 65 6e 74 | 20 6f 6e 20 61 20 64 65 |ependent| on a de|
|00000c60| 66 69 6e 65 2c 20 22 55 | 53 45 5f 48 4f 53 54 5f |fine, "U|SE_HOST_|
|00000c70| 46 49 58 45 44 50 4f 49 | 4e 54 22 2e 0d 2a 2a 0d |FIXEDPOI|NT"..**.|
|00000c80| 2a 2a 20 43 75 72 72 65 | 6e 74 6c 79 2c 20 74 68 |** Curre|ntly, th|
|00000c90| 69 73 20 77 69 6c 6c 20 | 6f 6e 6c 79 20 62 65 20 |is will |only be |
|00000ca0| 75 73 65 64 20 69 66 20 | 77 65 27 72 65 20 6f 6e |used if |we're on|
|00000cb0| 20 61 20 36 38 4b 20 62 | 6f 78 2c 20 62 75 74 20 | a 68K b|ox, but |
|00000cc0| 66 65 65 6c 20 66 72 65 | 65 20 74 6f 0d 2a 2a 20 |feel fre|e to.** |
|00000cd0| 65 78 70 65 72 69 6d 65 | 6e 74 21 0d 2a 2f 0d 0d |experime|nt!.*/..|
|00000ce0| 23 69 66 09 21 5f 5f 70 | 6f 77 65 72 63 0d 23 64 |#if.!__p|owerc.#d|
|00000cf0| 65 66 69 6e 65 09 55 53 | 45 5f 48 4f 53 54 5f 46 |efine.US|E_HOST_F|
|00000d00| 49 58 45 44 50 4f 49 4e | 54 0d 23 65 6e 64 69 66 |IXEDPOIN|T.#endif|
|00000d10| 0d 0d 23 69 66 64 65 66 | 20 55 53 45 5f 48 4f 53 |..#ifdef| USE_HOS|
|00000d20| 54 5f 46 49 58 45 44 50 | 4f 49 4e 54 0d 0d 23 69 |T_FIXEDP|OINT..#i|
|00000d30| 66 09 5f 5f 70 6f 77 65 | 72 63 20 7c 7c 20 61 70 |f.__powe|rc || ap|
|00000d40| 70 6c 65 63 0d 23 64 65 | 66 69 6e 65 09 20 44 4f |plec.#de|fine. DO|
|00000d50| 4e 54 5f 55 53 45 5f 41 | 53 4d 5f 46 49 58 45 44 |NT_USE_A|SM_FIXED|
|00000d60| 50 4f 49 4e 54 09 31 0d | 23 65 6e 64 69 66 0d 0d |POINT.1.|#endif..|
|00000d70| 23 69 66 20 44 4f 4e 54 | 5f 55 53 45 5f 41 53 4d |#if DONT|_USE_ASM|
|00000d80| 5f 46 49 58 45 44 50 4f | 49 4e 54 0d 23 69 66 6e |_FIXEDPO|INT.#ifn|
|00000d90| 64 65 66 20 5f 5f 46 49 | 58 4d 41 54 48 5f 5f 0d |def __FI|XMATH__.|
|00000da0| 23 69 6e 63 6c 75 64 65 | 20 3c 46 69 78 4d 61 74 |#include| <FixMat|
|00000db0| 68 2e 68 3e 0d 23 65 6e | 64 69 66 0d 23 69 66 6e |h.h>.#en|dif.#ifn|
|00000dc0| 64 65 66 20 5f 5f 54 4f | 4f 4c 55 54 49 4c 53 5f |def __TO|OLUTILS_|
|00000dd0| 5f 0d 65 78 74 65 72 6e | 20 70 61 73 63 61 6c 20 |_.extern| pascal |
|00000de0| 46 69 78 65 64 20 46 69 | 78 4d 75 6c 28 46 69 78 |Fixed Fi|xMul(Fix|
|00000df0| 65 64 20 61 2c 20 46 69 | 78 65 64 20 62 29 20 4f |ed a, Fi|xed b) O|
|00000e00| 4e 45 57 4f 52 44 49 4e | 4c 49 4e 45 28 30 78 41 |NEWORDIN|LINE(0xA|
|00000e10| 38 36 38 29 3b 0d 23 65 | 6e 64 69 66 0d 0d 23 64 |868);.#e|ndif..#d|
|00000e20| 65 66 69 6e 65 09 66 69 | 78 6d 75 6c 28 61 2c 20 |efine.fi|xmul(a, |
|00000e30| 62 29 09 09 46 69 78 4d | 75 6c 28 61 2c 20 62 29 |b)..FixM|ul(a, b)|
|00000e40| 0d 23 64 65 66 69 6e 65 | 09 66 69 78 64 69 76 28 |.#define|.fixdiv(|
|00000e50| 61 2c 20 62 29 09 09 46 | 69 78 44 69 76 28 61 2c |a, b)..F|ixDiv(a,|
|00000e60| 20 62 29 0d 23 64 65 66 | 69 6e 65 09 66 69 78 6d | b).#def|ine.fixm|
|00000e70| 75 6c 32 5f 33 30 28 61 | 2c 20 62 29 09 46 72 61 |ul2_30(a|, b).Fra|
|00000e80| 63 4d 75 6c 28 61 2c 20 | 62 29 0d 0d 23 65 6c 73 |cMul(a, |b)..#els|
|00000e90| 65 0d 0d 23 64 65 66 69 | 6e 65 09 66 69 78 6d 75 |e..#defi|ne.fixmu|
|00000ea0| 6c 28 61 2c 20 62 29 09 | 09 6d 63 36 38 6b 5f 66 |l(a, b).|.mc68k_f|
|00000eb0| 69 78 6d 75 6c 28 61 2c | 20 62 29 0d 23 64 65 66 |ixmul(a,| b).#def|
|00000ec0| 69 6e 65 09 66 69 78 64 | 69 76 28 6e 2c 20 64 29 |ine.fixd|iv(n, d)|
|00000ed0| 09 09 6d 63 36 38 6b 5f | 66 69 78 64 69 76 28 6e |..mc68k_|fixdiv(n|
|00000ee0| 2c 20 64 29 0d 23 64 65 | 66 69 6e 65 09 66 69 78 |, d).#de|fine.fix|
|00000ef0| 6d 75 6c 32 5f 33 30 28 | 61 2c 20 62 29 09 6d 63 |mul2_30(|a, b).mc|
|00000f00| 36 38 6b 5f 66 69 78 6d | 75 6c 32 5f 33 30 28 61 |68k_fixm|ul2_30(a|
|00000f10| 2c 20 62 29 0d 0d 23 65 | 6e 64 69 66 0d 23 65 6e |, b)..#e|ndif.#en|
|00000f20| 64 69 66 20 2f 2a 20 55 | 53 45 5f 48 4f 53 54 5f |dif /* U|SE_HOST_|
|00000f30| 46 49 58 45 44 50 4f 49 | 4e 54 20 2a 2f 0d 0d 00 |FIXEDPOI|NT */...|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f80| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000f90| df 07 07 2e 5f 4e 75 48 | e7 e0 c0 43 ef 00 18 20 |...._NuH|...C... |
|00000fa0| 59 30 19 6f 36 0c 40 00 | ff 6e 30 32 19 6f 2c 0c |Y0.o6.@.|.n02.o,.|
|00000fb0| 08 6d 61 63 5f 77 74 2e | 68 00 02 00 00 00 50 61 |.mac_wt.|h.....Pa|
|00000fc0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 02 |rtSITx..|........|
|00000fd0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 aa 13 b9 8d 00 00 | 00 00 00 00 01 ac 10 a0 |........|........|
|00001000| 3c 60 0c 4a 2f 00 06 67 | 04 a6 3c 60 02 a2 3c 0a |<`.J/..g|..<`..<.|
|00001010| 00 00 01 1f 40 00 10 20 | 5f 4f ef 00 0c 4e d0 22 |....@.. |_O...N."|
|00001020| 5f 20 5f a0 69 1e 80 4e | d1 22 5f 10 1f 20 5f a0 |_ _.i..N|."_.. _.|
|00001030| 6a 4e d1 4e 56 00 00 59 | 4f 2f 3c 53 54 52 23 3f |jN.NV..Y|O/<STR#?|
|00001040| 2e 00 0a a9 a0 22 6e 00 | 0c 42 11 20 1f 67 22 20 |....."n.|.B. .g" |
|00001050| 40 20 50 30 18 32 2e 00 | 08 67 16 b2 40 62 12 70 |@ P0.2..|.g..@b.p|
|00001060| 00 53 41 67 06 10 18 d1 | c0 60 f6 10 10 52 40 a0 |.SAg....|.`...R@.|
|00001070| 2e 4e 5e 20 5f 50 8f 4e | d0 4a 78 02 8e 6b 22 30 |.N^ _P.N|.Jx..k"0|
|00001080| 00 00 00 1e 00 56 00 03 | 02 24 02 2e 00 56 00 03 |.....V..|.$...V..|
|00001090| 02 24 02 2e 00 00 0b b1 | 00 00 00 00 00 00 00 00 |.$......|........|
|000010a0| 00 00 00 00 00 48 00 09 | 4d 6f 6e 61 63 6f 00 00 |.....H..|Monaco..|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 06 00 04 00 2a 00 03 |........|.....*..|
|000010d0| 02 6d 03 3d 00 56 00 04 | 02 24 02 2f a9 f5 e5 e0 |.m.=.V..|.$./....|
|000010e0| 00 00 0c ae 00 00 0c ae | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 65 |.....n..|.n...>.e|
|00001100| 90 60 0f cc 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |.`......|.>..MPSR|
|00001110| 00 01 00 0a 03 f0 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001120| 03 ed ff ff 00 00 00 22 | 00 65 92 40 00 00 00 00 |......."|.e.@....|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+